home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / editors / emcs1857 / 1857el~1.zoo / lisp / char-table-vt100.elc < prev    next >
Encoding:
Text File  |  1992-02-04  |  1.5 KB  |  27 lines
  1.  
  2. (defun standard-char-graphic (c gc) "\
  3. Display character C as graphic set character GC in
  4.    backslash-char-table and ctl-arrow-char-table." (byte-code "בגדה    !וQ!!⑧זח 
  5. ✓#êזט 
  6. ✓#ê✓)ç" [r gc c vector new-glyf "(0" char-to-string "(B" put-char-table-dispr backslash-char-table ctl-arrow-char-table] 10))
  7.  
  8. (defun standard-char-underline (c uc) "\
  9. Display character C as character UC underlined in
  10.    backslash-char-table and ctl-arrow-char-table." (byte-code "בגדה    !וQ!!⑧זח 
  11. ✓#êזט 
  12. ✓#ê✓)ç" [r uc c vector new-glyf "" char-to-string "" put-char-table-dispr backslash-char-table ctl-arrow-char-table] 10))
  13.  
  14. (defun standard-frameg-graphic (gc) "\
  15. For the frame glyf, use graphic set character GC in
  16.    backslash-char-table and ctl-arrow-char-table." (byte-code "אבג    !דQ!⑧הו ✓\"êהז ✓\"ê✓)ç" [g gc new-glyf "(0" char-to-string "(B" put-char-table-frameg backslash-char-table ctl-arrow-char-table] 8))
  17.  
  18. (defun standard-truncg-graphic (gc) "\
  19. For the truncation glyf, use graphic set character GC in
  20.    backslash-char-table and ctl-arrow-char-table." (byte-code "אבג    !דQ!⑧הו ✓\"êהז ✓\"ê✓)ç" [g gc new-glyf "(0" char-to-string "(B" put-char-table-truncg backslash-char-table ctl-arrow-char-table] 8))
  21.  
  22. (defun standard-wrapg-graphic (gc) "\
  23. For the line wrap glyf, use graphic set character GC in
  24.    backslash-char-table and ctl-arrow-char-table." (byte-code "אבג    !דQ!⑧הו ✓\"êהז ✓\"ê✓)ç" [g gc new-glyf "(0" char-to-string "(B" put-char-table-wrapg backslash-char-table ctl-arrow-char-table] 8))
  25.  
  26. (provide (quote char-table-vt100))
  27.